home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas2c.zip / CINTRIN.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  1KB  |  79 lines
  1. {
  2.  
  3.     CINTRIN - C intrinsics
  4.  
  5.     These routines are NOT to be called from PASCAL directly, but serve
  6.     to declare the C Intrinsic Library functions for the use of C
  7.     routines.
  8.  
  9. }
  10.  
  11. unit CINTRIN;
  12.  
  13. interface
  14.  
  15. procedure LDIV_;
  16. procedure LMOD_;
  17. procedure LUDIV_;
  18. procedure LUMOD_;
  19. procedure LLSH_;
  20. procedure LRSH_;
  21. procedure LURSH_;
  22. procedure LXMUL_;
  23. procedure OVERFLOW_;
  24. procedure PADA_;
  25. procedure PSBA_;
  26. procedure PADD_;
  27. procedure PSUB_;
  28. procedure PCMP_;
  29. procedure PDEA_;
  30. procedure PINA_;
  31. procedure PSBP_;
  32. procedure SCOPY_;
  33. procedure SPUSH_;
  34.  
  35. implementation
  36.  
  37. {$L LDIV}
  38. procedure LDIV_; external;
  39. procedure LMOD_; external;
  40. procedure LUDIV_; external;
  41. procedure LUMOD_; external;
  42.  
  43. {$L LRSH}
  44. procedure LLSH_; external;
  45. procedure LRSH_; external;
  46. procedure LURSH_; external;
  47.  
  48. {$L LXMUL}
  49. procedure LXMUL_; external;
  50.  
  51. {$L OVERFLOW}
  52. procedure OVERFLOW_; external;
  53.  
  54. {$L PADA}
  55. procedure PADA_; external;
  56. procedure PSBA_; external;
  57.  
  58. {$L PADD}
  59. procedure PADD_; external;
  60. procedure PSUB_; external;
  61.  
  62. {$L PCMP}
  63. procedure PCMP_; external;
  64.  
  65. {$L PINA}
  66. procedure PDEA_; external;
  67. procedure PINA_; external;
  68.  
  69. {$L PSBP}
  70. procedure PSBP_; external;
  71.  
  72. {$L SCOPY}
  73. procedure SCOPY_; external;
  74.  
  75. {$L SPUSH}
  76. procedure SPUSH_; external;
  77.  
  78. end.
  79.